<script>on mouseUpclWndput the clickh into thput the clickv into tvput "w"&((th+0) div 64)+1+((tv-8) div 64)*6 into twndset cursor to "none"visual zoom open fastgo cd 1put "Please wait…"picture twnd,"resource","zoom",falseget the resultif there is a window twnd thenput ""hide msgset dithering of window twnd to trueset scale of window twnd to -1set zoom of window twnd to "out"hide cd windowshow window twndelsebeep 2answer itend ifend mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>395</left>
<top>65</top>
<right>437</right>
<bottom>108</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24694</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>help</name>
<script>Click an outline to open a picture.Click in the picture to reduce or enlarge it.Click in the picture’s close box to return to the index card.on mouseUpanswer line 1 to 5 of script of meend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>395</left>
<top>111</top>
<right>437</right>
<bottom>154</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2478</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>abt</name>
<script>Pictures downloaded from ftp.sunet.se.Stack design & programming by campbewj@snydelva.on mouseUpanswer line 1 to 3 of script of meend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>395</left>
<top>156</top>
<right>437</right>
<bottom>199</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>13744</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>home</name>
<script>on mouseUpgo homeend mouseUp</script>
</part>
<name></name>
<script>on openstackclWndif the systemversion>7 then domenu "hide others"end openstackon resumestackclWndend resumestackon closestackclWndend closestackon suspendstackclWndend suspendstackon mouseupInPicture xhide window xif scale of window x is 0thenset scale of window x to -1set zoom of window x to outelseset scale of window x to 0set zoom of window x to inend ifset scroll of window x to 0,0show window xend mouseupInPictureon closepicture xshow cd windowend closepictureon clWndshow cd windowrepeat with y=number of windows down to 1if owner of window y is "picture"then close window yend repeatend clWnd</script>